package IntelSpam::Config;

use 1.0;

use strict;
use warnings;
use Cwd qw(abs_path);
use XML::Simple;
use Data::Dumper;

our $VERSION = '1.0';
our $DEBUG = 1;


our $CFG = {};

sub new($){
	my $myself = bless {}, shift;
	
	$myself
}

sub init($$){
	my ($this, $cfgfile) = @_;
	my $xml = XML::Simple->new;
	$CFG = $xml->XMLin($cfgfile, 'NormaliseSpace' => 2 );
	#print Dumper $CFG;
}

sub getcfg($$){
	my $this = shift;
	my $key = shift;

	$CFG->{$key};
}


